home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pulp 2
/
Pulp_02_1999_POL_de.d64
/
d B.CC...B s B
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
43 lines
0 poke53265,peek(53265)and239
1 dimw$(300):poke53281,0:poke53280,0:poke650,128:
2 fori=1to15:poke211,0:poke214,i:sys58640
3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 goto10
7 poke53265,peek(53265)or16:return
10 forr=1to15:reada$:w$(r)=a$:next
11 poke211,0:poke214,17:sys58640:
12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
13 print"[213][203][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [202][201]";
14 print"[194][155] [176][195][195][174] [176][174][176] [178][195][195][174] [195][178][195] [176][195][174] [176][195][195][174] [194]";
15 print"[194] [194] [194] [194][194][194] [194] [194] [194] [173][195][174] [194] [160] [194]";
16 print"[194][155] [173][195][195][189] [189][173][189] [177][195][195][189] [195][177][195] [173][195][189] [173][195][195][189] [194]";
17 print"[202][201][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [213][203]";
18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:gosub7
20 x=0:y=-1
21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
22 geta$:
23 ifa$=chr$(13)then50
24 if a$="."andx<30thenx=x+15:goto21
25 if a$=","andx>0thenx=x-15:goto21
26 goto22
50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
52 poke631,13:poke632,13:poke198,2
53 printchr$(19);:end
100 data"--------------- invasion -------------"
101 data" "
102 data"ein etwas aelteres spiel aus meiner "
103 data"frueheren zeit. anstelle dieses spie- "
104 data"les sollte in der naechsten ausgabe "
105 data"ein spiel, eine demo oder ein kleines "
106 data"programm seien. schickt mir einfach, "
107 data"was ihr gemacht habt !! "
109 data"spielziel: "
110 data"die herunterkommenden raumschiffe auf-"
111 data"fangen. "
112 data"steuerung: "
113 data"joystick in port 2 (links/rechts) "
114 data" "
115 data"----------------- viel spass ---------"